home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1998 November / MAC100-1998-11.ISO.7z / MAC100-1998-11.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / ﾕｰﾃｨﾘﾃｨ / Mops 3.2.sea / Mops 3.2 / Mops source / Asm Source / LBug < prev    next >
Text File  |  1992-09-13  |  270b  |  26 lines
  1. 0 value dlevel
  2.  
  3. : (val")
  4.     (lit-str) type  space
  5.     dup .h  cr  ;
  6.  
  7. : val"
  8.     dlevel
  9.     IF
  10.         postpone (val")  ,"
  11.     ELSE
  12.         word" drop
  13.     THEN  ;            immediate
  14.  
  15.  
  16. : (msg")
  17.     (lit-str)  type  cr  ;
  18.  
  19. : msg"
  20.     dlevel
  21.     IF
  22.         postpone (msg")  ,"
  23.     ELSE        
  24.         word" drop
  25.     THEN  ;            immediate
  26.